;	DOCHELP.M
;	8/29/89
;	BRIEF macro
;
;	this macro calls the DOCHELP utility with the required parameters to 
;	extract function documentation from the DOCZ help library.

(macro dochelp
	(
		(string funcname cmdline)
		(int ret_code)
		(get_parm 0 funcname "Enter the function name:" 31)
		(message "DOCZ: %s" funcname)
		(sprintf cmdline "dochelp %s /arg >&dochelp.zzz" funcname)
		(= ret_code (dos cmdline))
		(if (!= ret_code 0)
			(
				(message "Cannot call DOCHELP!")
				(beep)
			)
		;else
			(
				(beginning_of_line)
				(read_file "dochelp.zzz")
				(del "dochelp.zzz")      
				(message "")
			)
		)
	)
)	


